home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagg_m.zip
/
MAIL.SWG
/
0008_QWK File format.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-09-26
|
1KB
|
37 lines
*)
From: KELLY SMALL Refer#: NONE
Subj: QWK stuff Conf: (1221) F-PASCAL
*)
Type Array25 = Array[1..25] of Char;
HdrRec = Record
MessageStatus : Char;
MessageNumber : Array[1..7] of Char;
MessageDate : Array[1..8] of Char;
MessageTime : Array[1..5] of Char;
MessageTo : Array25;
MessageFrom : Array25;
MessageSubject: Array25;
MessagePS : Array[1..12] of Char;
MessageRefer : Array8;
TotalBlock : Array[1..6] of Char;
MessageKilled : Char;
Conference : Integer;
Dummy : Array[1..3] of Char;
End;
Var Header : HdrRec;
F : File;
begin
assign(f,'message.dat');
reset(f);
read(f,header);
end.
But this is only the begining, you will need to read in all the
message as 128 byte blocks and convert it for editing. It's an
array of char, not strings, and it uses #227 for an End of Line,
rather then the conventional carriage return/line feed.